home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
French Postcards Plus
/
350a_French_Postcards.dsk
/
BEACH SCENE.bas
< prev
next >
Wrap
BASIC Source File
|
2020-07-23
|
1KB
|
47 lines
10 D$ = CHR$(4)
500 PRINT D$;"BLOAD HIRES SCRUNCH"
590 FOR I = 770 TO 790
600 READ J
610 POKE I,J
620 NEXT
630 DATA 173,48,192,136,208,5
640 DATA 206,1,3,240,9,202,208
650 DATA 245,174,0,3,76,2,3,96
1000 HOME
1020 VTAB 10: PRINT "WHAT A BEAUTIFUL DAY! AND WHAT A CHICK IN THE BIKINI!! I WONDER IF SHE'D LIKE A LITTLE ROMP IN THE SAND?"
1025 FOR G1 = 1 TO 5000: NEXT G1
1030 A = 1
1040 PRINT D$;"BLOAD PIC.SAND1,A$7000": GOSUB 5000
1050 GOSUB 1250
1060 VTAB 22: PRINT "MIND IF I JOIN YOU FOR A LITTLE WHILE? "
1065 FOR G1 = 1 TO 3500: NEXT G1
1070 PRINT D$;"BLOAD PIC.SAND3,A$7000": GOSUB 5010
1080 VTAB 22: PRINT "THIS IS WHAT I LOVE ABOUT BEING A LIFEGUARD!!"
1085 FOR G1 = 1 TO 3000: NEXT G1
1090 PRINT D$;"BLOAD PIC.SAND2,A$7000": GOSUB 5000
1100 POKE -16302,0
1110 GOSUB 1160
1120 POKE -16299,0
1130 GOSUB 1170
1140 POKE -16300,0
1150 GOTO 1110
1160 REM
1170 FOR I = 1 TO 50 STEP A
1180 TN = 200 -2 *A -I
1190 POKE 768,TN: POKE 769,10
1200 CALL 770
1210 NEXT
1220 A = A +1
1230 IF A >99 THEN 1285
1240 RETURN
1250 POKE -16297,0
1260 POKE -16304,0
1270 POKE -16301,0
1280 RETURN
1285 REM
1290 PRINT CHR$(4);"RUN MENU"
1300 END
5000 POKE 24582,0: POKE 24583,32: POKE 24584,255: POKE 24585,63: POKE 24587,112: CALL 24579
5001 RETURN
5010 POKE 24582,0: POKE 24583,64: POKE 24584,255: POKE 24585,95: POKE 24587,112: CALL 24579
5011 RETURN